home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 June / EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso / recent1 / ahp404.lha / AHP4 / DOpusSkripts / AHP_Ascii_Send.dopus5 < prev    next >
Text File  |  1997-05-21  |  853b  |  53 lines
  1. /* AHP_Ascii_Send.dopus5 */
  2.  
  3. /*
  4.   Die erste Datei, die angewählt ist, wird im ASCII-Format gesendet.
  5.   AHP4 sollte aktiv sein.
  6. */
  7.  
  8. options results
  9.  
  10. IF ~SHOW('Ports','DOPUS.1') THEN DO
  11.   say 'OPUS ist nicht aktiv!'
  12.   exit 5
  13. end
  14.  
  15. IF ~SHOW('Ports','rexx_AHP') THEN DO
  16.   say 'AHP4 nicht aktiv!'
  17.   exit 5
  18. end
  19.  
  20. address "DOPUS.1"
  21.  
  22. lister query source
  23. if result="RESULT" then exit 0
  24. listernr = result
  25.  
  26. lister query listernr path
  27. if result="RESULT" then exit 0
  28. sourcedir = result
  29.  
  30. lister query listernr selfiles stem files
  31. if files.0="RESULT" then exit 0
  32. name = files.0
  33.  
  34. if name="FILES.0" then exit 0
  35.  
  36. sourcename = sourcedir||name
  37.  
  38.     /* Hier wird AHP veranlaßt, die Datei zu senden.    */
  39.  
  40. address 'rexx_AHP'
  41.  
  42. 'activeport get'
  43.  
  44. port = result
  45.  
  46. 'command '||port||' r '||sourcename
  47.  
  48. address 'DOPUS.1'
  49. lister select listernr name
  50. lister refresh listernr full
  51.  
  52. exit 0
  53.